﻿Public Class ExtendedNetworkMethods
  Private Declare Function WsControl Lib "winsock.dll" (ByVal protocol As Integer, ByVal action As Integer, ByVal pRequestInfo As IntPtr, ByVal pcbRequestInfoLen As IntPtr, ByVal pResponseInfo As IntPtr, ByVal pcbResponseInfoLen As IntPtr) As Integer
  Private Const WSCNTL_AFD_FLUSH_RESOLVER_CACHE As Integer = &H6

  Public Shared Sub FlushDNSResolverCache()
    WsControl(-1, WSCNTL_AFD_FLUSH_RESOLVER_CACHE, 0, 0, 0, 0)
  End Sub
End Class
